home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / DDESERV.WMS < prev    next >
Encoding:
Text File  |  1991-03-22  |  198 b   |  16 lines
  1. ; Test of DDE server advise
  2.  
  3. ; Wait and update a$ every second
  4. j=1
  5. print("We are started^M^J")
  6.  
  7. again:
  8.  
  9. a$=strint(j)
  10. print(a$+"^M^J")
  11. i=time?+1
  12. do until(time?>i)
  13. j=j+1
  14. goto again
  15. end
  16.